home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs05.d81 / ezldr2-8.sfx / menu.bas (.txt) next >
Commodore BASIC  |  1994-08-14  |  1KB  |  38 lines
  1. 10 REM SAVE"@0:MENU.BAS",08:REM BY DAVID SCHMOLL
  2. 20 IFLF=1THEN390
  3. 30 U=PEEK(186):SA=8500:RS=65533:DD=56584:CU=08:REM CU IS DEVICE FOR CLOCK
  4. 40 IFPEEK(RS)=255THENPOKE981,15:SYS40994:POKE216,0:POKE7168,0:S=PEEK(215)
  5. 50 IFPEEK(RS)<>255THENPN=PEEK(678):TV=260:REM 64 MODE
  6. 60 IFPEEK(RS)=255THENPN=PEEK(2563):TV=200:REM 128 MODE
  7. 70 IFPN=0THENPOKEDD+6,(PEEK(DD+6)AND127):REM NTSC
  8. 80 IFPN=255THENPOKEDD+6,(PEEK(DD+6)OR128):REM PAL
  9. 90 POKE53280,0:POKE53281,0:IFSTHENTV=230:SYS30643
  10. 110 OPEN15,CU,15:CLOSE15:IFPEEK(144)=0THEN140
  11. 120 CU=CU+1:IFCU>=31THEN220
  12. 130 GOTO110
  13. 140 OPEN15,CU,15,"T-RB":REM CMD RTC CODE
  14. 150 FORX=0TO8
  15. 160 GET#15,A$(X):IF A$(X)=""THEN A$(X)=CHR$(0)
  16. 170 NEXTX
  17. 180 IF(A$(0)<>"3")AND(ST=64)THENPOKESA-1,(0ORASC(A$(2))):CLOSE15:GOTO320
  18. 190 POKESA-1,(128ORASC(A$(2)))
  19. 200 GET#15,E$:IFST=0THEN200
  20. 210 CLOSE15:GOTO120
  21. 220 TI$="000000":PRINTCHR$(147);CHR$(14);"SET CLOCK Y/[206] ? "
  22. 230 P$=CHR$(19):FORX=1TO15:P$=P$+CHR$(29):NEXTX
  23. 240 FORX=0TOTV
  24. 250 GETT$:ON-(T$="Y")-(T$<>"")GOTO 380,270:PRINT P$;STR$(9-INT(TI/60))
  25. 260 NEXT:GOTO380
  26. 270 PRINTCHR$(17):INPUT"ENTER TIME (HHMMSSX)";T$
  27. 280 Y=4:FORX=1TO5STEP2
  28. 290 A$(Y)=CHR$(16*VAL(MID$(T$,X,1))+VAL(MID$(T$,X+1,1))):Y=Y+1
  29. 300 NEXTX:POKESA-1,(0ORASC(A$(2)))
  30. 310 A$(Y)=CHR$(128):IFMID$(T$,X,1)="A"THENA$(X)=CHR$(0)
  31. 320 IFA$(7)<>CHR$(0)THENA$(4)=CHR$(ASC(A$(4))+128)
  32. 330 H=ASC(A$(4)):IF(HAND127)=18THENA$(4)=CHR$(H-(SGN(H-128)*128))
  33. 340 POKEDD+7,(PEEK(DD+7)AND127)
  34. 350 FORX=4TO7:POKEDD+7-X,ASC(A$(X)):NEXT
  35. 360 REM EZ LOADER USES CIA#2 REGISTERS FOR TOD CLOCK
  36. 380 LF=1:LOAD"MENU.ML",U,1
  37. 390 SYSSA
  38.